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01 IDENTIFICATION DIVISION. EV^ 7/ 
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08 RLE-CONTROL. 

09 SELECT GAMEN-F ASSIGN TO SCREEN-AAA. 

1 0 ORGANIZATION IS TRANSACTION. 

11 DATA DIVISION. 

12 RLE SECTION. 
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15 03 SHIN-CD PIC X(05). 
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m 18 03 KINGAKU PIC S9(05). 
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22 COMPUTE WK = TANKA OF GAMEN-R * SU OF GAMEN-R 

23 IF WK> 10000 
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25 ELSE 

26 COMPUTE KINGAKU OF GAMEN-R = WK * 0.9 

27 END-IF 

28 END-IF 

29 END-IF. 
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31 GO TO LOOP-1. 

32 MAIN-EXIT. 

33 STOP RUN. 
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DECIDE PRIMARY 
COORDINATE 



J 




READ IN ith LINE OF 
PROGRAM DESCRIPTION 
COLUMN 




DISCRIMINATE TYPE OF 
DEFINITIVE (SCREEN, FILE, 
ETC.), VALUE AND WORK 

FOR EVERY WORD, AND 
APPLY THESE IDENTIFIERS 
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APPLY IDENTIFIER FOR 
IDENTIFYING THAT WORD 
IS SELF WORD OR GIVEN 
WORD 
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^5 




YE NUMBER 


3MMAND 
TYPE 


1 IT-TEAM 1 
JNCTION 


PROGRAM DESCRIPTION 


01 






PROCEDURE DIVISION. 


02 






MAIN-AA SECTION 


03 






MAIN-START 


04 




0 


OPEN 1-0 GAMEN-F 


05 




0 


INITIALIZE GAMEN-R. 


06 




0 


WRTTF GAMFN-R 


07 






i nnD-i 


08 




0 


QFAH HAMFN-P 


09 


IF 




IF FNin-RTN ( ^ORFFN) = "iTVAl UF) 


10 




0 


fM O^F OAMFN— F 


11 






GO TO MAIN-EXIT 


12 






PKin-iF 

CINU ir. 


13 


IF 




IF SHIN-CD OF GAMEN-R (SCREEN) = SPACE (VALUE) 

no «5I 1 HF P,AMFM-R C^PRFFMl — 7FROfVAI UF} 


14 


SELF COMMAND 




MfiVF QQQQQffttVFKI - VAl I IF} TO KIMHAK1 J OF (1AMFN- R (^F[ F - SCRFFN) 


15 






Fl ^F 


16 


SELF COMMAND 




TO ^HIN-OD OF SHIN-TBL(SELF * CONTROL BOX) 


17 


CMD 




^Fl FCT TFIKA FROM SHIN-DB INTO SHIN-TBLTANKA 

*• * i l rr u | | Iff v^a I rAV^/lVI %JI till L*/LJ 11 i 1 >*/ -wl UM l I ■ I * \l « I \/* 


18 


IF 




IF STATUS (CONTROL BOX) NOT = ZERO (VALUE) 


19 


SELF COMMAND 




MOVE 99999 (SELF : VALUE) TO TANKA OF GAMEN-R (SELF : SCREEN) 


20 






ELSE 


21 


SELF COMMAND 




MOVE TANKA OF SHIN-TBL(GIVEN:DB) 
TO TANKA OF GAMEN-R (SELF : SCREEN) 


22 


SELF COMMAND 




COMPUTE WK(SELF : WORK) = TANKA OF GAMEN-R ( GIVEN : SCREEN) 
* SU OF GAMEN-R (GIVEN: SCREEN) 


23 


IF 




IF WK(WORK) > 10000 (VALUE) 


24 


SELF COMMAND 




COMPUTE KINGAKU OF GAMEN-R (SELF:SCREEN) = WK(GIVEN:WORK) * 0.8 


25 






ELSE 


26 






COMPUTE KINGAKU OF GAMEN-R (SELF:SCREEN) = WK( GIVEN: WORK) * 0.9 


27 






END-IF 


28 






END-IF 


29 






END-IF. 


30 




0 


WRHTE GAMEN-R. 


31 






GO TO LOOP-1. 


32 






MAIN-EXIT. 


33 






STOP RUN. 
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CONTROL FUNCTION TYPE 
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IDENTIFIERS 
(ASSIGN WORDS) 
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1 LINE NUMBER I 


COMMAND TYPE 


UNIT-TEAM 
FUNCTION 


PROGRAM DESCRIPTION 


ni 

U I 






PROCEDURE DIVISION. 


no 






MAIN-AA SECTION. 


no 






MAIN-START. 


n>i 






OPEN I-O GAMEN-F. 


05 






INITIALIZE GAMEN-R. 


Uo 




rh 


WRITE GAMEN-R. 


07 






LOOP-1: 


no 
Uo 






READ GAMEN-F. 


09 


rr 
Ir 




IF END-BTN (T0W02) = "1 " (VALUE) 


1 n 
1 U 




fh 


CLOSE GAMEN-F 


I 1 






GO TO MAIN-EXIT 


1 O 






END-IF. 


1 *X 


ir 




IF SHIN-CD OF GAMEN-R (T0W02) = SPACE (VALUE) 
OR SU OF GAMEN-R (T0W02) = ZERO (VALUE) 


1 4 


cci c /^/^fcjiiiji Aun 
otLr UUMMANU 




MOVE 99999 (GIVEN : VALUE) TO KINGAKU OF GAMEN-R (SELF: T0W04) 








ELSE 


1 6 


OL l_f \_» W IVl IVl /A 1 LJ 




MOVE SHIN-CD OF GAMEN-R (GIVEN :T0W02) 
TO SHIN-CD OF SHIN-TBL (SELF: T1CB) 


1 7 


CMD 




SELECT TEIKA FROM SHIN-DB INTO :SHIN-TBI_TANKA 


18 


IF 




IF STATUS(TICB) NOT = ZERO (VALUE) 


19 


SELF COMMAND 




MOVE 99999 (GIVEN:VALUE) TO TANKA OF GAMEN-R (SELF: T0W04) 


20 






ELSE 


21 


SELF COMMAND 




MOVE TANKA OF SHIN-TBL(GIVEN:T1W02) 
TO TANKA OF GAMEN-R (SELF :T0W04) 


22 


SELF COMMAND 




COMPUTE WK(SELF:KW04P) = TANKA OF GAMEN-R (GIVEN : TO W04) 
* SU OF GAMEN-R (GIVEN :T0W02) 


23 


IF 




IF WK(KW04P) > 10000 (VALUE) 


24 


SELF COMMAND 




COMPUTE KINGAKU OF GAMEN-R (SELF: T0W04) = WK (GIVEN : KW04P) * 0.8 


25 






ELSE 


26 






COMPUTE KINGAKU OF GAMEN-R (SELF: T0W04) = WK ( GIVEN : KW04P) * 0.9 


27 






END-IF 


28 






END-IF 


29 






END-IF. 


30 




CP 


WRITE GAMEN-R. 


31 






GO TO LOOP-1. 


32 






MAIN- EXIT. 


33 






STOP RUN. 
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(SATISFY CYCLIC 
STRUCTURE) 
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DECOMPOSE STATEMENT IN 

SUCH A MANNER THAT 
RELATIONSHIP BETWEEN 
SECONDARY COORDINATE OF 

GIVEN WORD AND 
SECONDARY COORDINATE OF 
SELF WORD WILL SATISFY 
CYCLIC STRUCTURE 
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ANALYZE IF STATEMENT 











SELECT, FROM PROCESS ROUTE 
DIAGRAM INFORMATION TABLE 
(PROCESS ROUTE DIAGRAM), ONE 
BRANCH FROM WHICH BRANCHING IS 
TO BE PERFORMED BY ROUTING 
ACTION VECTOR PROGRAM 


^131 




133 



EXTRACT, FROM PROGRAM 
DESCRIPTION COLUMN, IF 
STATEMENT RELATING TO BASE 
STRUCTURE OF ERROR 
PROCESSING FOR EXECUTING 
POST-PROCESSING OF SELECTED 

BRANCH, AND POSITION 
EXTRACTED IF STATEMENT AS IF 
STATEMENT (EXECUTION 
CONDITION) USED IN ROUTING 

ACTION VECTOR PROGRAM 
REGARDING SELECTED BRANCH 



EXTRACT, FROM PROGRAM 
DESCRIPTION COLUMN, IF 
STATEMENT RELATING TO 
PROCESSING BY BASE STRUCTURE 
FOR EXECUTING POST- 
PROCESSING OF SELECTED 
BRANCH, AND POSITION 
EXTRACTED IF STATEMENT AS IF 

STATEMENT (EXECUTION 
CONDITION) USED IN ROUTING 

ACTION VECTOR PROGRAM 
REGARDING SELECTED BRANCH 
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SELECT ONE PALLET, FOR WHICH 
THERE IS POSSIBILITY THAT 
INPUT OR OUTPUT CONDITION 
WILL BE STIPULATED BY INPUT 
OR OUTPUT VECTOR PROGRAM, 
FROM PROCESS ROUTE DIAGRAM 
INFORMATION TABLE 
(PROCESS ROUTE DIAGRAM) 
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EXTRACT, FROM PROGRAM 
DESCRIPTION COLUMN, IF 
STATEMENT CONTROLLING INPUT 
OR OUTPUT CONDITION 
(EXECUTION OF COMMAND) 
REGARDING SELECTED PALLET, 
AND POSITION EXTRACTED IF 
STATEMENT AS IF STATEMENT 
(EXECUTION CONDITION) USED 
IN INPUT OR OUTPUT VECTOR 
PROGRAM OF SELECTED PALLET 
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EXTRACT, FROM PROGRAM 
DESCRIPTION COLUMN, ONE IF 
STATEMENT THAT INCLUDES 
EQUIVALENT WORD, AND POSITION 
EXTRACTED IF STATEMENT AS IF 
STATEMENT (ACCEPTANCE CONDITION) 
USED IN HOMOGENEITY VECTOR 
PROGRAM OF W04 PALLET TO WHICH 
THIS EQUIVALENT WORD BELONGS 
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BEFORE EXPANSION 



AFTER EXPANSION 



WORKING-STORAGE 
SECTION. 

COPY A. 

01 B-DATA. 
COPY B. 



A PROC 




01 A. 




03 A1 


PIC X(5). 


03 A2 


PIC X(10). 


END 





B PROC 




03 B1 


PIC X(3). 


03 B2. 




05 B3 


PIC X(2). 


05 B4 


PIC X(5). 


END 





WORKING-STORAGE 


SECTION. 




01 A. 




03 A1 


PIC X(5). 


03 A2 


PIC X(10). 


01 B-DATA. 




03 B1 


PIC X(3). 


03 B2. 




05 B3 


PIC X(2). 


05 B4 


PIC X(5). 
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BEFORE EXPANSION 



PROCEDURE 

MOVE A TO B. 
COPY X. 
MOVE C TO D. 



DIVISION. 



X PROC 
IF B > 100 

CALL'SUBOOVUSING B C 
ELSE 

CALL'SUB002'USING B C. 
END 



AFTER EXPANSION 



PROCEDURE 



DIVISION. 



MOVE A TO B. 
IF B > 100 

CALL'SUBOOVUSING B C 
ELSE 

CALL'SUB002'USING B C. 
MOVE C TO D. 
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BEFORE EXPANSION 



AFTER EXPANSION 



PROCEDURE 



DIVISION. 



WRITE Y-REC. 
PERFORM Y-RTN. 

STOP RUN. 
COPY Y. 



Y PROC 

Y-RTN SECTION. 
Y-RTN-ST. 

MOVE SPACE TO E. 

MOVE SPACE TO F. 

MOVE SPACE TO G. 
Y-RTN-EX. 

EXIT. 
END 




PROCEDURE 



DIVISION. 



WRITE Y-REC. 
PERFORM Y-RTN. 

STOP RUN. 
Y-RTN SECTION. 
Y-RTN-ST. 

MOVE SPACE TO E. 

MOVE SPACE TO F. 

MOVE SPACE TO G. 
Y-RTN-EX. 

EXIT. 
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BEFORE EXPANSION 



AFTER EXPANSION 



MAIN PROGRAM 



WORKING-STORAGE SECTION. 



01 WK-A 
01 WK-B 
01 WK-C 

PROCEDURE 



PIC 9(10). 
PIC 9(10). 
PIC 9(10). 

DIVISION. 



MOVE A TO WK-A. 
MOVE B TO WK-B. 
CALL'SUBOOT 

USING WK-A WK-B WK-C. 
MOVE WK-C TO C. 



MAIN PROGRAM 



WORKING-STORAGE SECTION. 
01 WK-A PIC 9(10). 
01 WK-B PIC 9(10). 
01 WK-C PIC 9(10). 



PROCEDURE 



DIVISION. 



MOVE A TO WK-A. 
MOVE B TO WK-B. 
WK-C=2 * WK-A 
WK-B 

MOVE WK-C TO C. 



* WK-B * 



SUBROUTINE 



PROGRAM-ID. SUB001. 

LINKAGE SECTION. 
01 WK-X PIC 9(10). 
01 WK-Y PIC 9(10). 
01 WK-Z PIC 9(10). 
PROCEDURE DIVISION. 

USING WK-X WK-Y WK-Z. 
PROC-RTN. SECTION. 
PROC-ST. 

COMPUTE 

WK-Z=2 * WK-X * WK-Y * 
WK-Y 
PROC-EX. 

EXIT PROGRAM. 
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GO TO LABEL-Y 
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(DELETE) 
(DELETE) 
(DELETE) 
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SET IDX TO 1 => MOVE 1 TO IDX 
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ORIGINAL COMMAND AFTER SHAPING 

MOVE A TO B,C => MOVE A TO B 

MOVE A TO C 
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ORIGINAL COMMAND 



AFTER SHAPING 





IF 


A = B 






AND C = D 


o 




IF X = Y 






AND Z = W 






MOVE E TO 




F 




CO 




ELSE 


est 




MOVE G TO H 



IF A = B AND C 


= D 


IF X = Y AND Z 


= W 


MOVE E TO F 




ELSE 




MOVE G TO H 




END-IF 




ELSE 




END-IF 
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BEFORE CONVERSION 
TO SIMPLE HIERARCHY 



IF A = B 

PERFORM S1 
ELSE 

PERFORM S2 



S1 SECTION 

CONTENT OF S1 
EXIT 



S2 SECTION 

CONTENT OF S2 
EXIT 



AFTER CONVERSION 
TO SIMPLE HIERARCHY 



IF A = B 

CONTENT OF S1 
ELSE 

CONTENT OF S2 



